Sub ׵θ( As Range, ׵θ As Integer)

    With 

        .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"

        With .FormatConditions(1).Borders(׵θ)
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With

    End With

End Sub